1 PRINT"[147]":POKE53281,0:POKE53280,2:PRINT"[158]"
2 PRINT"                                   [146]"
3 PRINT"    [146]                               [146]"
4 PRINT"    [146]   MULTIPLICATION QUIZ         [146]"
5 PRINT"    [146]   (RANDOM OR SEQUENTIAL)      [146]"
6 PRINT"    [146]                               [146]"
7 PRINT"    [146]    BY BRUCE CORBETT           [146]"
8 PRINT"    [146]                               [146]"
9 PRINT"    [146]    PINCOURT,QUEBEC            [146]"
10 PRINT"    [146]                               [146]"
11 PRINT"    [146]                               [146]"
12 PRINT"                                   [146]"
13 PRINT"      HIT ANY KEY TO CONTINUE [146]  ":POKE198,0:WAIT 198,1
14 PRINT "[147]      H E L L O [146] ":PRINT:PRINT:PRINT
15 PRINT"   THIS IS A MULTIPLICATION QUIZ.  ":PRINT:PRINT
17 PRINT"   PLEASE TYPE YOUR FIRST NAME.":PRINT:PRINT:PRINT
20 PRINT"    THEN, HIT THE RETURN BUTTON."
30 POKE198,0:INPUT"      YOU ARE CALLED ";N$
32 PRINT:PRINT:PRINT
40 PRINT"[147]":PRINT""N$",PLEASE TYPE IN THE"
41 PRINT"   LEVEL  OF ARITHMATIC "
42 PRINT"   YOU WOULD LIKE TO TRY."
51 RESTORE
59 LET C=0
60 PRINT"  TYPE 1 FOR 1* MULTIPLICATION"
70 PRINT"       2 FOR 2* MULTIPLICATION"
80 PRINT"       3 FOR 3* MULTIPLICATION"
90 PRINT"       4 FOR 4* MULTIPLICATION"
100 PRINT"       5 FOR 5* MULTIPLICATION"
110 PRINT"       6 FOR 6* MULTIPLICATION"
120 PRINT"       7 FOR 7* MULTIPLICATION"
130 PRINT"       8 FOR 8* MULTIPLICATION "
140 PRINT"       9 FOR 9* MULTIPLICATION "
150 PRINT"      10 FOR 10* MULTIPLICATION0"
152 PRINT"      11 FOR 11* MULTIPLICATION"
154 PRINT"      12 FOR 12* MULTIPLICATION"
155 PRINT "   IF AT ANY TIME YOU WOULD LIKE TO STOP     ,PLEASE TYPE 999 [146]"
190 INPUT"   YOUR CHOICE IS[191][157][157][157]";Z$
191 IFZ$="[191]"THEN40
192 Z=VAL(Z$)
193 IFZ<1THEN40
194 IFZ>12THEN40
195 RA=0:WA=0
305 PRINT"[147] WOULD YOU PREFER A SEQUENCE "
306 PRINT"   (1,2,3 ETC) OR RANDOM NUMBERS?"
310 PRINT"      TYPE 'R' FOR RANDOM "
311 PRINT"      TYPE 'S' FOR SEQUENTIAL"
315 INPUT NU$
320 IF NU$="R"THEN GOTO 375
325 IF NU$="S"THEN C=C+1:GOTO375
330 GOTO315
350 C=INT(RND(1)*12)+1:GOTO 375
375 PRINT ,C"*"Z, "=??"
400 INPUT D: IF D=999 GOTO 10000
410 LET A=Z*C
420 IFA<>D THEN WA=WA+1: GOSUB2992
425 IFA<>D THEN GOSUB 3100
430 IFA<>D THEN GOSUB 3450
440 IFA=D THEN RA=RA+1: GOSUB4000
441 IF RA=12ANDWA=0 THEN GOSUB 4260
445 IF RA+WA=12 THEN GOTO 9000
446 IF RA+WA=12 THEN GOTO 9000
450 IFNU$="R"THEN 350
451 IFNU$="S"THEN 325
612 GOTO340
625 INPUT D:IFD=999 GOTO10000
2465 POKES+14,5:POKES+18,16:POKES+3,1:POKES+24,143:POKES+6,240
2470 POKES+4,65:FR=5389:FORT=1TO50
2475 FQ=FR+PEEK(S+27A9A*3.5
2480 HF=INT(FQ/256):LF=FQ-HF*256
2485 POKES+0,LF:POKES+1,HF:NEXT:POKES+24,0
2992 FORL=54272TO54296:POKEL,0:NEXT
2994 V=54296:W=54276:U=54277:S=54278:H=54273:L=54272
2996 POKEV,15:POKEU,16:POKES,128:POKEH,1:POKEL,195
2998 POKEW,33:FORT=1TO1400:NEXT:POKEW,32
2999 REM 2900-3000 IS FOR "NO" MUSIC
3000 Y=INT(4*RND(1))+1
3001 ONY GOTO3010,3020,3030,3040
3004 PRINT:PRINT:PRINT
3010 POKE53280,11:PRINT"  BAD GUESS. TRY AGAIN, ";N$"":PRINTC" * "Z"=??"
3011 PRINT
3012 INPUT"  YOUR SECOND GUESS IS";D:RETURN
3020 PRINT:PRINT:PRINT
3021 POKE53280,14:PRINT"  WRONG. GUESS AGAIN ":PRINTC "*" Z"=??"
3022 PRINT:PRINT
3023 INPUT" YOUR SECOND GUESS IS";D:RETURN
3030 PRINT:PRINT:PRINT
3031 POKE53280,13:PRINT"  "N$;" YOU CAN DO BETTER THAN THAT! "
3032 PRINT"  TRY AGAIN.":PRINT  C "*"Z"=??"
3033 INPUT " YOUR SECOND GUESS IS";D:RETURN
3040 PRINT:PRINT:PRINT
3041 POKE53280,13:PRINT" NOPE. WHAT'S YOUR NEXT BEST GUESS?":PRINTC "*"  Z"=??"
3042 PRINT:PRINT
3043 INPUT " YOUR SECOND GUESS IS";D:RETURN
3100 REM NO MUSIC #2
3150 FORL=54272TO54296:POKEL,0:NEXT
3160 V=54296:W=54276:U=54277:S=54278:H=54273:L=54272
3170 POKEV,15:POKEU,16:POKES,128:POKEH,1:POKEL,195
3175 POKEW,33: FORT=1TO450:NEXT:POKEW,32
3177 FORT=1TO250:NEXT
3180 POKEV,15:POKEU,16:POKES,128:POKEH,1:POKEL,195
3185 POKEW,33:FORT=1TO450:NEXT:POKEW,32
3200 POKE53280,10:PRINT" YOU HAVE ONE MORE CHANCE, ";N$
3201 PRINT:PRINT:PRINTC" * "Z"=??"
3202 INPUT "YOUR LAST GUESS IS ";D:RETURN
3449 REM NO MUSIC #3
3450 S=54272:FORL=0TO24:POKES+L,0:NEXT
3460 S=54272:FORL=0TO24:POKES+L,0:NEXT
3465 POKES+14,5:POKES+18,16:POKES+3,1:POKES+24,143:POKES+6,240
3470 POKES+4,65:FR=5389
3475 FORT=1TO50 :FQ=FR+PEEK(S+27)*3.5
3480 HF=INT(FQ/256):LF=FQ-HF*256
3485 POKES+0,LF:POKES+1,HF
3490 NEXT:POKES+24,0
3499 REM THIRD  WRONG TRY
3500 PRINT:PRINT:PRINT
3501 PRINT"[147]   THE ANSWER IS " A  ;:PRINT"," N$
3601 PRINT:PRINT
3602 PRINT  " NOW TRY THIS ONE.":RETURN
3999 REM YES MUSIC
4000 FORL=54272TO54296: POKEL,0:NEXT
4004 S=54272
4010 POKES+24,15:POKES+5,88:POKES+6,195:POKES+1,25:POKES,177
4012 POKES+4,33:FORT=1TO250:NEXT:POKES+4,32
4020 POKES+24,15:POKES+5,88:POKES+6,195:POKES+1,28: POKES+6,214
4022 POKES+4,33:FORT=1TO250:NEXT:POKES+4,32
4030 POKES+24,15:POKES+5,88:POKES+6,195:POKES+1,25:POKES,177
4032 POKES+4,33:FORT=1TO400:NEXT:POKES+4,32
4199 X=INT(RND(1)*5)+1
4200 ONX GOTO4210,4220,4230,4240,4250
4205 RESTORE
4210 PRINT"[147]":PRINT:PRINT:PRINT:PRINT
4211 POKE53280,2: PRINT" GOOD WORK. ";N$ "! NOW TRY THIS ONE."
4212 PRINT:PRINT:RETURN
4220 PRINT"[147]":PRINT:PRINT:PRINT:PRINT
4221 POKE53280,5:PRINT"YOU DID IT! NOW HOW ABOUT THIS ONE?"
4222 PRINT:PRINT:RETURN
4230 PRINT"[147]":PRINT:PRINT:PRINT:PRINT
4231 POKE53280,2:PRINT"  BRILLIANT! HERE IS THE NEXT ONE ":
4232 PRINT:PRINT:RETURN
4240 PRINT"[147]":PRINT:PRINT:PRINT:PRINT
4242 POKE53280,0:PRINT"  NICE. HERE IS ANOTHER. "
4243 PRINT:PRINT:RETURN
4250 PRINT"[147]":PRINT:PRINT:PRINT:PRINT
4252 POKE53280,4:PRINT"  RIGHT AGAIN! SEE IF YOU CAN "
4253 PRINT"  DO THIS ONE, ";N$
4255 PRINT:PRINT:RETURN
4260 GOSUB4305
4262 PRINT:PRINT:PRINT
4263 PRINT "  NOW TRY THIS ONE."
4264 PRINT:PRINT:RETURN
4305 S=54272:POKES+24,15:POKES,220:POKES+1,68:POKES+5,15:POKES+6,215
4310 POKES+7,120:POKES+8,100:POKES+12,15:POKES+13,215
4315 PRINT"[147]":V=53248:POKEV+21,1
4320 FORS1=12288TO12350:READQ1:POKES1,Q1:NEXT
4325 FORS2=12352TO12414:READQ2:POKES2,Q2:NEXT
4330 FORS3=12416TO12478:READQ3:POKES3,Q3:NEXT
4332 RESTORE
4335 POKEV+39,15:POKEV+1,68
4340 PRINT TAB(160)"         YOU GOT 12 IN A ROW!"
4345 P=192
4350 FORX=0TO347STEP3
4355 RX=INT(X/256):LX=X-RX*256
4360 POKEV,LX:POKEV+16,RX
4370 IFP=192THENGOSUB4500
4375 IFP=193THENGOSUB4700
4380 POKE2040,P:FORT=1TO60:NEXT
4385 P=P+1:IFP>194THENP=192
4390 NEXT
4395 RETURN
4400 DATA30,0,120,63,0,252,127,129,254,127,129,254,127,189,254,127,255,254
4401 DATA63,255,252,31,187,248,3,187,192,1,255,128,3,189,192,1,231,128,1,255,0
4402 DATA31,255,0,0,124,0,0,254,0,1,199,32,3,131,224,7,1,192,1,192,0,3,192,0
4403 DATA30,0,120,63,0,252,127,129,254,127,129,254,127,189,254,127,255,254
4404 DATA63,255,252,31,221,248,3,221,192,1,255,128,3,255,192,1,195,128,1,231,3
4405 DATA31,255,255,0,124,0,0,254,0,1,199,0,7,1,128,7,0,204,1,128,124,7,128,56
4406 DATA30,0,120,63,0,252,127,129,254,127,129,254,127,189,254,127,255,254
4407 DATA63,255,252,31,221,248,3,221,192,1,255,134,3,189,204,1,199,152,1,255,48
4408 DATA1,255,224,1,252,0,3,254,0
4409 DATA7,14,0,204,14,0,248,56,0,112,112,0,0,60,0,-1
4500 POKES+4,129:POKES+4,128:RETURN
4700 POKES+11,129:POKES+11,128:RETURN
9000 PRINT"[147]":PRINT:PRINT:PRINT:PRINT  "   YOU HAVE GOT CORRECT  :",RA;"[157] [146]"
9001 PRINT:PRINT
9002 PRINT"   YOU HAVE GOT WRONG  :",WA;"[157] [146]  "
9003 PRINT:PRINT:PRINT
9006 PRINT"   WOULD YOU LIKE TO TRY SOME MORE?[160]":PRINT:PRINT
9008 PRINT"  IF NOT,PLEASE TYPE (1).":PRINT:PRINT:PRINT"  IF SO PLEASE TYPE (2). "
9010 GOTO 10002
10000 PRINT "[147]FINISHED?" ;N$:PRINT"TYPE 1[146] TO END AND 2[146] TO START AGAIN."
10002 GET F$: IF F$="" THEN 10002
10003 IFF$="2"THEN59:IFF$<>"2"THEN10004
10004 IFF$<>"1"THEN10002:IFF$="1"THEN10006
10006 PRINT"[147]"
10008 PRINT"     I ENJOYED WORKING WITH YOU, ";N$
10010 PRINT:PRINT:PRINT:PRINT"        BYE FOR NOW!"
10011 END
20000 REM ----------------------------
20010 REM MODIFIED EVER SO SLIGHTLY BY
20020 REM   DAVID BRADLEY (01/15/85)
20030 REM ----------------------------